home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 43
/
64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_B.d64
/
multi 16 demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
50 lines
10 rem ** mutli 16 written '88 by
11 rem * frank deinzer
12 rem * tannenstrasse 20
13 rem * 8505 roethenbach
14 rem **
15 rem demo
16 :
18 ifpeek(52736)<>76thenload"multi 16",8,1
19 sys58648:sys64789:sys64931
20 poke53281,.:poke53280,.
23 fort=12864to13952:poket,0:next
25 ba=49152+15*256 : rem basisadresse von vic-multi 16
30 v1=ba:v2=ba+3*16: rem neuen vic adressen
35 z1=ba+6*16:z2=ba+7*16:rem spritepointer adressen
40 sa=49152+14*256:rem startadresse
50 print"[147]dieses programm kann 16 sprites un-"
55 print"eingeschraenkt anzeigen (auch z.b alle"
60 print"16 nebeneinander)."
65 print"einen moment bitte":poke56334,0:poke1,51:print""
70 fort=0to15:po=201*64+t*64
75 nu$=right$("0"+right$(str$(t+1),len(str$(t+1))-1),2)
80 a1=asc(left$(nu$,1)):a2=asc(right$(nu$,1)):print"[145]"nu$
85 forr=0to7
90 pokepo+r*3,peek(a1*8+53248+r)
95 pokepo+r*3+1,peek(a2*8+53248+r)
100 nextr
105 nextt
110 poke1,55:poke56334,1
113 sys sa+3:remstart incl. init
115 print"[147]jetzt werden nacheinander die 16 sprite"
120 print"eingeschaltet:":fort=0to7:pokez1+t,201+t:next
123 fort=0to7:pokez2+t,209+t:next
125 fort=1to15step2:pokev1+t,100:next
130 a=20:fort=0to14step2:pokev1+t,a:a=a+20:next
135 fort=1to15step2:pokev2+t,100:next
140 fort=0to14step2:pokev2+t,a:a=a+20:ifa>255then
145 ifa>255thena=a-256:pokev2+16,240
150 next
155 l=0:fort=0to7:l=l+2^t:pokev1+21,l
160 forr=1to1000:nextr:nextt
165 l=0:fort=0to7:l=l+2^t:pokev2+21,l
170 forr=1to1000:nextr:nextt
175 fort=1to15step2:forr=100to200step1:pokev1+t,int(r):nextr,t
180 fort=1to15step2:forr=100to200step1:pokev2+t,int(r):nextr,t
190 fort=39to46:pokev1+t,1:forr=1to300:nextr,t
195 fort=39to46:pokev2+t,1:forr=1to300:nextr,t
200 fort=39to46:pokev1+t,2:forr=1to300:nextr,t
205 fort=39to46:pokev2+t,2:forr=1to300:nextr,t
210 fort=1to4000:next:run